Option Explicit
Sub P_Sample019()
    Dim myFso     As Scripting.FileSystemObject
    Dim myName    As String
    Dim myNewPath As String
    Set myFso = New Scripting.FileSystemObject
    myName = ThisWorkbook.Path & "\Tmp1"       		'ƻsӷƧ
    myNewPath = ThisWorkbook.Path & "\Tmp\"		'wƻsؼ
    myFso.CopyFolder myName, myNewPath, OverWriteFiles:=True
    'ϥMaskr
    'myFso.GetFolder(myName).Copy myNewPath, OverWriteFiles:=True
    Set myFso = Nothing					'
End Sub
